00010 



XLIST 
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PI0P!000 
000001 



000005 
000006 

000010 



000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 



200240 

254000 



000002' 

000005 • 



000002 000000 000000 



000003 334240 000000 



000004 700040 000005 



135040 000000 

505040 000007 

202260 000001 

254000 000000 



200200 
260140 
334240 
334246 
254000 
135040 
312040 
606240 
661240 
254000 



000000 
000000 

000034 ' 
000004 
000005' 
000000 

000011' 

600000 

000040 
000005' 



00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
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EXTERNAL UX I T . ERROR . USRDOT , USRPOV, PUUOAC , USRREL 

;RETURN THE DATE TO THE USER 

INTERNAL DATE.THSDAT 

date: move DAT. THSDAT 
JRST STOAC 

THSDAT: ;C0NTAINS THE DATE 

;RETURN TIME SYSTEM HAS RUN IN 60THS OF A SECOND 

INTERNAL TIMER 
EXTERNAL TIME 

timer: SKIPA DAT, TIME ;FALL INTO STOAC 

;RETURN DATA SWITCHES 

INTERNAL SWITCH 

switch: DATAI DAT 

JSTORE DAT IN USER AC 

INTERNAL STOAC 

STOAC: LOB TAC, PUUOAC 
HRLI TAC, PROG 
MOVEM DAT,e»TAC 
JRST UXIT 

{RETURN DEVICE CHARACTERISTICS 

INTERNAL DVCHR 

EXTERNAL JOB, DEVSRC, PJOBN 

DVCHR: MOVE ITEM, JOB 

PUSHJ PDP, DEVSRC JSEARCH FOR DEVICE 

SKIPA DAT,C0] ;N0T A DEVICE 

SKIPA DAT,DEVMOD(DEVDAT) 

JRST STOAC 

LD8 TAC, PJOBN ;GET JOB NUMBER 

CAME TAC, JOB JDOES USER ALREADY HAVE THIS DEVICE? 

TRNN DAT,ASSCON+ASSPRG ;N0 

TLO DAT.DVAVAL ;N0, BUT HE CAN GET IT 

JRST STOAC 
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00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 

00780 
00790 



CALLING SEQUENCE 

PUSHJ POP, HASH 

EXIT; 
COMPUTES XOR HASH TYPE 



ALWAYS RETURNS HERE 
INDEX FROM NAME (SIXBIT CODE) 



IN AC DAT 



AND 
THE 
BIT 



MONITOR 



LEAVES THE RESULT (00<OR= INDEX <0R=77) AS AN 
ALGORITHM IS AS FOLLOWS: (V = EXCLUSIVE OR) 

35:=8V17V26V35 

34:=7V16V25V34 

33:=6V15V24V33 

32:=5V11V23V29 

3i:=4V10V22V28 

30:=3V9V21V27 

INTERFACE 

SYMBOLS set/used: 

ACCUMULATORS: 

INTERN HASH 



INTEGER IN TAG. 



hash: 



DAT 
POP 



U 
S/U 



TAG 
TACl 



S/U 
S/U 



HLR TACDAT 
MOVE TACl, DAT 
XORB TACl.TAC 
ROT TACl, -11 
XOR TACTACl 
ANDI TACUTBNMl 
POPJ PDP, 



RETURN 
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(7100023 
000024 
000025 



000026 
000027 
000030 



000031 
000032 
000033 
000034 



505040 010000 
202040 000000 
254000 000010' 



505040 010000 
202040 000000 
254000 000025' 



322300 000000 

260140 000000 

254000 000030' 

000000 000000 



00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 



INTERNAL SETDDT 

SETDOT: HRLI TaC, 10000 

MOVEM TAC.USRDDT 
JRST UXIT 



INTERNAL SETPOV 

SETPOV: HRLI TAC, 10000 

MOVEM TAC.USRPOV 
JRST UXIT 

;WAIT FOR 10 TO BECOME INACTIVE ON CHANNEL AC 

INTERNAL WAIT 
EXTERNAL lOIERR.WAITl 

wait: JUMPE DEVDAT, IOIERR ;CHANNEL ASSIGNED? 
PUSHJ PDP.WAITl ;WAIT TILL INACTIVE 
JRST UXIT 
END, 



THERE ARE NO ERRORS 
PROGRAM BREAK IS 000035 
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A 


P! 


INT 


AC1 


c^0001,5 


INT 


AC? 


(7100016 


INT 


AC3 


000017 


INT 


AL 


0000^1 


INT 


ASSCON 


400000 


INT 


ASSPRG 


200000 


INT 


B 


000014 


INT 


RUFPMT 


000012 


INT 


BUFWRD 


000013 


INT 


CLOSP 


00?000 


INT 


CLSIN 


000002 


INT 


CLSOUT 


000001 


INT 





000017 


INT 


DAT 


000005 


INT 


HATE 


000000 • 


INT 


OCL 


000001 


TNT 


DCW 


020000 


INT 


DOT 


000007 


INT 


HDO 


000006 


INT 


DDTMEM 


000037 


INT 


nOTSYM 


000036 


INT 


DEN 


000004 


INT 


nEVADR 


000007 


INT 


nEVBUF 


000006 


INT 


OEVCHR 


000001 


INT 


OEVCTR 


000011 


INT 


nEVDAT 


000006 


INT 


OEVIAD 


000007 


INT 


OEVIOS 


000002 


INT 


OEVLOG 


000005 


INT 


OEVMOO 


000004 


INT 


OEVNAM 


000000 


INT 


DEVOAD 


000010 


INT 


OEVPTR 


000010 


INT 


OEVSER 


000003 


INT 


OEVSRC 


000012' 


EXT 


nCF 


000012 


INT 


DIN 


000003 


INT 


DLK 


000005 


INT 


nou 


000002 


INT 


DR 


000016 


INT 


DRL 


000000 


INT 


DSI 


000011 


INT 


DSO 


000010 


INT 


DTW 


040000 


INT 


DVAVAL 


000040 


INT 


DVCDR 


100000 


INT 


DVCHR 


000011' 


INT 


DVDIR 


000004 


INT 


DVDIRI 


400000 


INT 


nviN 


000002 


INT 


QVLPT 


040000 


INT 


DVMTA 


000020 


INT 


DVOUT 


000001 


INT 



PAGE 6 



SYSCSS - COMMON SYSTFH SUBROUTINES 
SYMBOL TABLE 



PAGE 7 



nVTTY 

FNTRB 

ERROR 

I 

IB 

IBUFB 

INIT8 

INPB 

10 

lOACT 

lOREG 

lORKTL 

lOCON 

lODEND 

lODERR 

ionise 

lOnONE 
lOnTER 
lOEND 
lOFST 

lOIERR 

lOIMPM 

lONRCK 

lORDEL 

lORET 

lOS 

lOSTRT 

lOUSE 

lOW 

lOWC 

lows 

ITEM 

JBEADR 

JBECTR 

JBEPTR 

J8UE 

JDAT 

JERR 

JIOW 

JNA 

JOB 

LOOKS 

MTW 

OBUEB 

OUTPB 

POP 

PICHN 

PJOBN 

PROG 

PUUOAC 

RUN 

RUNABL 

SETDDT 

SETPOV 

STOAC 



020000 
000^)00 
000010 

000013 
200000 
400000 
010000 
000020 

010000 

000002 

040000 

00 040 

020000 

200000 

400000 

400000 

100000 

000040 

000004 

000031' 

400000 

000100 

000100 

000020 

000000 

000010 

400000 

000001 

000020 

400000 

000004 

000000 

000002 

000001 

000005 

000011 

002000 

100000 

004000 

000017 ' 

040000 

010 00 

100000 

004900 

000003 

000100 

000016' 

000007 

000005' 

200000 

204000 

000023' 

000026' 

000005' 



INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
TNT 
INT 
INT 
INT 
INT 
EXT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
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SWITCH 
TAC 
TACl 
TEM 

thsdat 

TIME 

TIMER 

TTYATC 

TTYUSE 

USRDOT 

USRMOD 

USRPOV 

USRRFL 

UUO 

UXIT 

WAIT 

WAITl 



000PI04' 

000001 

PI00002 

000010 

000002' 

000003' 

000003' 

020000 

010000 

000024' 

010000 

000027' 

000000 

000014 

000033' 

000031' 

000032' 



INT 
INT 
INT 
INT 
TNT 
EXT 
INT 
INT 
INT 
EXT 
INT 
EXT 
EXT 
INT 
EXT 
INT 
EXT 



END OE ASSEMBLY 



